home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
F1 Licenseware
/
F1 Licenseware - Volume 1.iso
/
disks
/
003.dms
/
003.adf
/
EXAMPLE_PROGRAMS
/
example19.AMOS
/
example19.amosSourceCode
Wrap
AMOS Source Code
|
1993-02-25
|
938b
|
50 lines
Rem EXAMPLE20.AMos
'
'
Rem examples of box,draw,plot,circle xgr,ygr
'
'
Screen Open 0,320,250,16,Lowres
Flash Off : Curs Off : Paper 0 : Hide : Cls 0
'
'
Centre "NOW PLOTTING 10000 RANDOM PIXELS"
For A=1 To 10000
Plot Rnd(319),Rnd(199),Rnd(15)
Next A
Cls 0
Centre "Now a simple effect using DRAW"
Wait 100
For X=0 To 319 : Ink Rnd(4)+1 : Draw 0,199 To X,0 : Next X
For Y=1 To 199 : Ink Rnd(14)+1 : Draw 0,199 To 319,Y : Next Y
Wait 100
Cls 0
Centre "NOW 1000 BOXES"
For A=1 To 1000
Ink Rnd(15) : X1=Rnd(320) : Y1=Rnd(200) : Box X1,Y1 To X1+Rnd(50),Y1+Rnd(50)
Wait Vbl
Next A
Wait 100
Cls 0
Ink 5
Bar 80,100 To 220,200
Paper 5
Locate 12,18 : Print "THIS IS A BAR"
Wait 100
Cls 0
Paper 0 : Locate 0,0 : Print "THE TIME TUNNEL USING CIRCLES"
Ink Rnd(15)
For A=1 To 255
Ink Rnd(14)+1
Circle 100,100,A
Next A
Wait 100
Cls 0
Ink 4 : B=1 : For A=0 To 250
Plot A,B
Inc B
Locate 0,24 : Print "XGR=";Xgr;" YGR=";Ygr
Wait 2
Next A
Wait 100
Edit